home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Magazin / Future-PD / CTW_Error.amos / CTW_Error.amosSourceCode
AMOS Source Code  |  1998-03-18  |  497b  |  24 lines
  1. ERR_FILE$="CTW_Error.abk"
  2.  
  3. INEXT_ERROR["","Out of Memory",""]
  4.  
  5. Procedure INEXT_ERROR[L1$,L2$,L3$]
  6. Shared ERR_FILE$
  7.  Extension_24_0080 0
  8. Load ERR_FILE$
  9.  Extension_24_02DE 
  10.  Extension_24_0018 0,1,20
  11.  Extension_24_023C 1,4,20
  12.  Extension_24_009E 0,1,0,Varptr(L1$)
  13.  Extension_24_009E 0,2,0,Varptr(L2$)
  14.  Extension_24_009E 0,3,0,Varptr(L3$)
  15. T=Timer+200
  16. Repeat 
  17.   A= Extension_24_0484 
  18.    Extension_24_02F6 
  19. Until Timer>T or A=-1 or A=4
  20. A= Extension_24_0042(0)
  21. Erase All 
  22.  Extension_24_0090 
  23. End 
  24. End Proc